← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:37 2022

Filename(eval 433)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 54 statements in 830µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
22259µs2.75msJSON::Schema::Modern::Result::::newJSON::Schema::Modern::Result::new
11112µs32µsJSON::Schema::Modern::Result::::BEGIN@13.338JSON::Schema::Modern::Result::BEGIN@13.338
1117µs17µsJSON::Schema::Modern::Result::::BEGIN@54JSON::Schema::Modern::Result::BEGIN@54
1117µs13µsJSON::Schema::Modern::Result::::BEGIN@59JSON::Schema::Modern::Result::BEGIN@59
1114µs10µsJSON::Schema::Modern::Result::::BEGIN@123JSON::Schema::Modern::Result::BEGIN@123
1114µs4µsJSON::Schema::Modern::Result::::BEGIN@18.339JSON::Schema::Modern::Result::BEGIN@18.339
1114µs12µsJSON::Schema::Modern::Result::::BEGIN@83JSON::Schema::Modern::Result::BEGIN@83
1114µs8µsJSON::Schema::Modern::Result::::BEGIN@91JSON::Schema::Modern::Result::BEGIN@91
1114µs7µsJSON::Schema::Modern::Result::::BEGIN@99JSON::Schema::Modern::Result::BEGIN@99
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
221µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
310s my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
410s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
510s my $isa_check_for_valid = ${$_[1]->{"\$isa_check_for_valid"}};
610s my $coerce_for_exception = ${$_[1]->{"\$coerce_for_exception"}};
710s my $isa_check_for_formatted_5fannotations = ${$_[1]->{"\$isa_check_for_formatted_5fannotations"}};
810s my $isa_check_for_output_5fformat = ${$_[1]->{"\$isa_check_for_output_5fformat"}};
911µs my $isa_check_for_annotations = ${$_[1]->{"\$isa_check_for_annotations"}};
1010s my $isa_check_for_exception = ${$_[1]->{"\$isa_check_for_exception"}};
1110s my $coerce_for_valid = ${$_[1]->{"\$coerce_for_valid"}};
12 package JSON::Schema::Modern::Result;
13242µs252µs
# spent 32µs (12+20) within JSON::Schema::Modern::Result::BEGIN@13.338 which was called: # once (12µs+20µs) by Sub::Quote::_clean_eval at line 13
no warnings 'closure';
# spent 32µs making 1 call to JSON::Schema::Modern::Result::BEGIN@13.338 # spent 20µs making 1 call to warnings::unimport
14
# spent 2.75ms (59µs+2.69) within JSON::Schema::Modern::Result::new which was called 2 times, avg 1.38ms/call: # once (16µs+2.63ms) by JSON::Schema::Modern::evaluate at line 389 of JSON/Schema/Modern.pm # once (43µs+67µs) by JSON::Schema::Modern::evaluate at line 177 of Sub/Defer.pm
sub new {
15 ($_QUOTED,$_UNQUOTED) if 0;
16# BEGIN quote_sub PRELUDE
17package JSON::Schema::Modern::Result;
18
# spent 4µs within JSON::Schema::Modern::Result::BEGIN@18.339 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 23
BEGIN {
1910s $^H = 2018;
2011µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
2114µs %^H = (
22 );
231120µs14µs}
# spent 4µs making 1 call to JSON::Schema::Modern::Result::BEGIN@18.339
24# END quote_sub PRELUDE
2510s my $invoker = CORE::shift();
2611µs my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
2710s if ($class ne "JSON::Schema::Modern::Result") {
28 if ($Moo::MAKERS{$class}) {
29 if ($Moo::MAKERS{$class}{constructor}) {
30 package JSON::Schema::Modern::Result;
31 return $invoker->SUPER::new(@_);
32 }
33 Moo->_constructor_maker_for($class);
34 return $invoker->new(@_);
35 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
36 return $meta->new_object(
37 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
38 : $class->Moo::Object::BUILDARGS(@_)
39 );
40 }
41 }
42 my $args = scalar @_ == 1
43 ? CORE::ref $_[0] eq 'HASH'
4412µs ? { %{ $_[0] } }
45 : Carp::croak("Single parameters to new() must be a HASH ref"
46 . " data => ". $_[0])
47 : @_ % 2
48 ? Carp::croak("The new() method for $class expects a hash reference or a"
49 . " key/value list. You passed an odd number of arguments")
50 : {@_}
51 ;
5211µs my $new = bless({}, $class);;
53(exists $args->{"annotations"} and ($new->{"annotations"} = scalar do { my $value = $args->{"annotations"};
54286µs227µs
# spent 17µs (7+10) within JSON::Schema::Modern::Result::BEGIN@54 which was called: # once (7µs+10µs) by Sub::Quote::_clean_eval at line 54
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Annotation])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_annotations, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Annotation\"]]", $value, "attribute_name","annotations","attribute_step","isa check","mgaca","0","varname","\$args->{\"annotations\"}"); $value }),
# spent 17µs making 1 call to JSON::Schema::Modern::Result::BEGIN@54 # spent 10µs making 1 call to warnings::unimport
55 $value
56}
57)),
58(exists $args->{"errors"} and ($new->{"errors"} = scalar do { my $value = $args->{"errors"};
59296µs219µs
# spent 13µs (7+6) within JSON::Schema::Modern::Result::BEGIN@59 which was called: # once (7µs+6µs) by Sub::Quote::_clean_eval at line 59
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$args->{\"errors\"}"); $value }),
# spent 13µs making 1 call to JSON::Schema::Modern::Result::BEGIN@59 # spent 6µs making 1 call to warnings::unimport
60 $value
61}
62)),
63(exists $args->{"exception"} and ($new->{"exception"} = scalar do { my $value = do {
64 local $Method::Generate::Accessor::CurrentAttribute = {
65 init_arg => "exception",
66 name => "exception",
67 step => "coercion",
68 };
69 (my $_return),
70 (my $_error), (my $_old_error = $@);
71 (eval {
72 ($@ = $_old_error),
73 ($_return =
74$coerce_for_exception->($args->{"exception"})),
75 1
76 } or
77 $_error = CORE::ref $@ ? $@ : "coercion for \"exception\" failed: ".$@);
78 ($@ = $_old_error),
79 (defined $_error and CORE::die $_error);
80 $_return;
81}
82;
83256µs220µs
# spent 12µs (4+8) within JSON::Schema::Modern::Result::BEGIN@83 which was called: # once (4µs+8µs) by Sub::Quote::_clean_eval at line 83
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::PP::Boolean]))) or Type::Tiny::_failed_check($isa_check_for_exception, "InstanceOf[\"JSON::PP::Boolean\"]", $value, "attribute_name","exception","attribute_step","isa check","mgaca","0","varname","\$args->{\"exception\"}"); $value }),
# spent 12µs making 1 call to JSON::Schema::Modern::Result::BEGIN@83 # spent 8µs making 1 call to warnings::unimport
84 $value
85}
86)),
87($new->{"formatted_annotations"} = scalar do { my $value = (
88 exists $args->{"formatted_annotations"}
8911µs ? $args->{"formatted_annotations"}
90 : 1);
91547µs212µs
# spent 8µs (4+4) within JSON::Schema::Modern::Result::BEGIN@91 which was called: # once (4µs+4µs) by Sub::Quote::_clean_eval at line 91
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_formatted_5fannotations, "Bool", $value, "attribute_name","formatted_annotations","attribute_step","isa check","mgaca","0","varname","\$args->{\"formatted_annotations\"}"); $value }),
# spent 8µs making 1 call to JSON::Schema::Modern::Result::BEGIN@91 # spent 4µs making 1 call to warnings::unimport
92 $value
93}
94),
95($new->{"output_format"} = scalar do { my $value = (
96 exists $args->{"output_format"}
9710s ? $args->{"output_format"}
98 : "basic");
995121µs312µs
# spent 7µs (4+3) within JSON::Schema::Modern::Result::BEGIN@99 which was called: # once (4µs+3µs) by Sub::Quote::_clean_eval at line 99
(do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:basic|d(?:ata_only|etailed)|flag|strict_basic|terse|verbose))\z})) or Type::Tiny::_failed_check($isa_check_for_output_5fformat, "Enum[\"flag\",\"basic\",\"strict_basic\",\"detailed\",\"verbose\",\"terse\",\"data_only\"]", $value, "attribute_name","output_format","attribute_step","isa check","mgaca","0","varname","\$args->{\"output_format\"}"); $value }),
# spent 7µs making 1 call to JSON::Schema::Modern::Result::BEGIN@99 # spent 3µs making 1 call to warnings::unimport # spent 2µs making 1 call to Type::Tiny::CORE:match
100 $value
101}
102),
10310s(exists $args->{"valid"} and ($new->{"valid"} = scalar do { my $value = do {
10412µs local $Method::Generate::Accessor::CurrentAttribute = {
105 init_arg => "valid",
106 name => "valid",
107 step => "coercion",
108 };
10910s (my $_return),
110 (my $_error), (my $_old_error = $@);
11111µs (eval {
112 ($@ = $_old_error),
113 ($_return =
11411µs17µs$coerce_for_valid->($args->{"valid"})),
# spent 7µs making 1 call to JSON::Schema::Modern::Result::__ANON__[JSON/Schema/Modern/Result.pm:38]
115 1
116 } or
117 $_error = CORE::ref $@ ? $@ : "coercion for \"valid\" failed: ".$@);
11810s ($@ = $_old_error),
119 (defined $_error and CORE::die $_error);
12011µs $_return;
121}
122;
1235216µs448µs
# spent 10µs (4+6) within JSON::Schema::Modern::Result::BEGIN@123 which was called: # once (4µs+6µs) by Sub::Quote::_clean_eval at line 123
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::PP::Boolean]))) or Type::Tiny::_failed_check($isa_check_for_valid, "InstanceOf[\"JSON::PP::Boolean\"]", $value, "attribute_name","valid","attribute_step","isa check","mgaca","0","varname","\$args->{\"valid\"}"); $value }),
# spent 31µs making 1 call to Scalar::Util::blessed # spent 10µs making 1 call to JSON::Schema::Modern::Result::BEGIN@123 # spent 6µs making 1 call to warnings::unimport # spent 1µs making 1 call to UNIVERSAL::isa
124 $value
125}
126)),
127 (($args)[0]->{__no_BUILD__} or (
128121µs126µs $new->JSON::Schema::Modern::Result::BUILD($args),
# spent 26µs making 1 call to JSON::Schema::Modern::Result::BUILD
129 )),
130 return $new;
131 }
13211µs $$_UNQUOTED = \&new;
133}
13417µs1;
135
136;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.